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ABSTRACT 


In  response  to  Depanment  of  Defense  queries  regarding  the  effectiveness  of  graduate 
education  for  Navy  officers  at  the  Naval  Postgraduate  School  (NTS),  the  Dean  of  Instruction  found 
it  necessary  to  provide  a  system  for  tracking  Navy  graduates.  The  data  for  this  system  was  initially 
acquired  from  the  Navy  officer  personnel  data  files  and  a  subset  was  selected  by  matching  with  the 
current  NPS  Navy  student  population.  Design  and  development  of  the  system  includes  the  Navy 
Officer  Master  File  (OMF)  records,  Unit  Identification  Code  (UIC)  index  file,  and  Billet  Sequence 
Code  (BSC)  index  file.  The  prototype  for  the  OMF  is  complete  and  operational  for  the  personnel 
Officer  Master  File  Extract  (OMFX)  personnel  data  base  maintenance  and  reponing. 
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I .  INTRODUCTION 


There  have  been  various  studies  contrasting  Navy  officer 
graduate  degrees  and  subsequent  assignments.  In  order  to 
determine  the  cost  effectiveness  of  providing  Naval  officers 
with  advanced  degrees,  there  is  a  need  to  provide  a  tool  for 
tracking  their  career  paths  after  graduation  from  government 
sponsored  graduate  education  (or  Naval  Postgraduate  School) . 
This  menu-driven  prototype  application  was  developed  to 
fulfill  that  requirement.  By  providing  a  data  base  that  is 
easily  maintainable  and  readily  accessible  for  updating  billet 
information,  trends  in  the  utilization  of  officers  having 
government  sponsored  graduate  degrees  can  be  easily  viewed 
through  the  reporting  feature. 

A.  REVIEW  OF  CURRENT  PROCESS 

In  the  face  of  downsizing  U.S.  military  forces,  the 
importance  of  personnel  utilization  becomes  more  critical . 
The  current  method  for  reassignment  is  determined  mainly 
between  the  detailer  and  the  officer.  Moreover,  the  Navy 
officer  is  in  a  unique  position  in  that  the  officer  generally 
is  required  to  follow  shore  duty  (Naval  Postgraduate  School) 
with  sea  duty.  The  officer  is  interested  in  checking  off  the 
requirements  that  the  promotion  board  will  be  reviewing  and 
not  concerned  with  fulfilling  a  payback  tour  or  pay  back 
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billet.  The  detailer  has  limited  payback  billets  opened 
concurrently  with  the  rotation  cycle  of  the  NPS  graduates  and 
is  concerned  with  filling  positions  rather  then  payback 
requirements.  There  are  specific  guidelines  for  filling 
degree-related  billets  but  no  current  method  for  applying 
these  guidelines.  Moreover,  the  activity  for  educating  Navy 
officers  and  the  activity  for  assigning  them  are  two  distinct 
commands.  At  best,  a  system  for  tracking  NPS  Navy  officer 
graduates  will  provide  the  necessary  data  to  analyze  current 
billet  assignments. 

B .  PURPOSE 

Initially,  three  questions  were  to  be  addressed  in  this 
study: 

1.  What  cost  effectiveness  can  be  realized  by  the  Navy  in 
providing  advanced  degrees  to  their  Navy  officers? 

2 .  What  measures  are  currently  employed  in  placing  graduate 
Navy  officers  in  applicable  billets? 

3.  What  career  trends  are  reflective  of  the  Navy  officer 
following  graduation  at  NPS? 

There  have  been  several  papers  written  regarding  cost 
effectiveness  of  advanced  degrees  for  Navy  officers  which  tend 
to  indicate  the  subjectivity  required  to  make  such  an 
assessment.  For  further  review,  see  references  2  and  3.  As 
stated  previously,  there  is  no  unified  process  for  placing 
graduate  students.  Basically  what  is  available  and  what  is 
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optimal  in  terms  of  career  advancement  are  the  two  influencing 
factors.  This  would  require  a  process  change  which  is  not 
within  the  scope  of  this  paper  {instead  of  shore  to  sea; 
institute  NPS  (shore)  to  payback  (shore)  to  sea).  Thus,  this 
paper  focused  on  the  tracking  of  NPS  Navy  officers.  This 
prototype  addresses  the  third  question:  where  do  the 
graduates  go?  By  looking  at  past  trends  and  developing  a 
system  to  track  current  NPS  graduates,  future  assignments  may 
be  more  efficiently  managed. 


3 


II.  PROJECT  REVIEW 


There  is  no  formal  system  analysis  and  design  methodology 
when  developing  a  system  using  a  fourth  generation  language 
(FOCUS).  FOCUS  is  basically  a  data  base  maintenance  tool  and 
report  generator.  Three  phases  are  required  to  develop  a 
prototype.  They  consist  of  (1)  the  requirements  review,  (2) 
data  base  design,  and(3)  identifying  report  requirements. 
Through  an  iterative  process,  the  system  is  developed, 
analyzed  and  modified  until  requirements  have  been  satisfied 
(the  requirements  may  be  modified  as  the  process  continues  and 
actual  application  is  realized) . 

A.  REQUIREMENTS  REVIEW 

The  hardware  and  software  selection  was  based  on  the  size 
of  the  data  and  availability  to  end-users .  The  NPS  mainframe 
computer  (AMDAHL  6225)  was  selected  and  CMS  accounts  set  up  to 
utilize  existing  FOCUS  software.  The  initial  data  file  of 
Navy  records  and  data  elements  requires  approximately  40 
cylinders  of  storage.  Therefore,  a  subset  of  the  Officer  Navy 
Master  File  was  used.  Only  current  NPS  Navy  students  were 
selected  for  this  prototype  and  may  be  expanded  to  include  all 
Navy  officers  as  well  as  other  services  as  the  need  requires 
and  space  allows. 
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The  Officer  Master  File  (OMF)  maintained  by  the  Defense 
Manpower  Data  Center  (DMDC)  was  identified  as  the  initial  data 
source.  These  files  provided  service  member  data,  billet 
data,  and  educational  data.  However,  the  billet  sequence  code 
required  to  identify  payback  billets  was  not  available. 
Further  investigation  led  to  a  request  by  the  Dean  of 
Instruction  to  Bureau  of  Personnel  (PERS  5G)  to  change  the 
Department  of  Defense  Instruction  (DODI)  to  include  this 
service  specific  data  to  the  DMDC  OMF.  This  information  was 
not  received  in  adequate  time  to  develope  this  prototype. 
Alternatively,  menu  screens  were  provided  to  input  a  sample  of 
officer  billet  data  into  the  base  OMF  extract.  Ten  officers 
having  graduated  the  last  two  quarters  across  the  12 
curriculums  were  requested  for  entry  into  the  database. 

A  UIC  file  from  DMDC  was  identified  and  initially 
requested.  However,  the  idea  of  grouping  UICs  (like  grouping 
zip  codes)  to  identify  "where  are  the  graduates  going"  was 
determined  to  be  too  broad  to  be  useful  in  this  analysis. 

The  billet  information  was  determined  to  be  classified  by 
Bureau  of  Personnel  (BUPERS)  and  therefore  not  included  in 
this  thesis.  A  billet  matrix,  used  for  assigning  personnel, 
was  provided  for  informational  purposes  only  and  not  within 
the  scope  of  developing  the  personnel  data  base. 

Ability  to  develop  user  reports  through  a  user  friendly 
application  was  requested.  A  simple  menu  driven  application 
is  provided  by  FOCUS  called  TABLETALK.  This  application  was 
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provided  as  an  option  from  the  main  menu.  A  listing  of  the 
individual  records  in  the  data  base  and  a  summary  report  were 
provided  as  options. 


B.  DATA  jASE  DESIGN 

As  stated  previously,  the  OMF  prototype  was  developed  for 
the  personnel  data  base  (OMFX) .  Index  keys  were  included  for 
later  linking  to  the  UIC  file  and  the  Billet  file.  These 
three  structures  and  their  elements  are  summarized  in  Appendix 
A. 
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1.  Personnel  Data  Base 

The  Personnel  Data  Base  referred  to  as  the  Officer 
Master  file  extract  (OMFX)  consists  of  four  major  components: 
(1)  the  service  segment;  (2)  the  individual  member  segment; 
(3)  the  billet  information  segment;  and  (4)  the  educational 
segment.  The  service  component  identifies  the  individual 
service  or  organization;  NV  -  Navy,  AR  -  Army,  AF  -  Air 
Force,  CG  -  Coast  Guard,  MR  -  Marines,  CIV  -  Civilian.  The 
Navy  is  the  main  focus  for  this  study.  The  next  segment, 
member  information,  contains  the  individual's  social  security 
number,  abbreviated  name,  and  name  as  indexes,  as  well  as 
additional  personnel  data  identified  in  the  master  file 
description.  The  billet  segment  indexes  the  current  unit 
identification  code  (UIC),  the  billet  sequence  code  (BSC),  and 
the  next  tour  of  duty  UIC  and  BSC.  This  segment  provides  data 
information  for  the  next  two  tours  of  duty  since  there  is  a 
requirement  to  complete  a  pay  back  tour  within  this  time 
period.  The  educational  segment  contains  the  officer's  last 
two  college  degree  programs  and  their  respective  information. 
This  was  restricted  by  the  initial  data  uploaded  from  the  OMF 
file.  In  order  to  accommodate  multiple  instances  of 
educational  data,  a  unique  identifier  would  need  to  be 
determined.  In  reviewing  the  actual  data,  a  unique  identifier 
could  not  be  determined.  Officers  may  attend  the  same  college 
and  graduate  in  two  separate  majors  as  well  as  graduate  the 
same  time  from  two  different  schools.  Although  this  is  the 
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exception  and  not  the  rule,  there  would  be  lost  data  or 
incomplete  data  on  these  students  if  the  index  were  school  or 
date  of  completion. 

2.  Unit  Identification  Code  (UIC)  File 

The  UIC  file  would  be  used  to  store  data  from  the  UIC 
file  from  DMDC  providing  address  information  only.  This  would 
be  helpful  if  grouping  them  by  geographical  area  was 
determined  to  be  useful  for  tacking  NFS  Navy  students . 

3 .  Billet  Sequence  Code  Pile 

The  BSC  would  identify  specific  billet  codes 
associated  with  a  UIC.  The  file  would  provide  subspecialty 
codes  associated  with  each  unique  UIC/BSC  in  order  to  identify 
and  link  potential  billets  by  subspecialties  granted  at  NFS. 


8 


III.  PROJECT  DESIGN  AND  IMPLEMENTATION 


A.  OFFICER  MASTER  FILE  EXTRACT  (OMFX)  MODEL 

The  OMFX  model  was  designed  as  a  tool  to  provide  on-line 
access  for  end-user  reporting.  This  information  was 
normalized  into  three  separate  relational  data  bases.  The 
personnel  data  base  was  designed  to  expand  its  usage  to 
include  all  Navy  Officers  and  all  services.  An  account  was 
developed  to  provide  simultaneous  access,  updating  and 
reporting,  referred  to  as  a  SINK  machine  (synchronized  usage) . 
Multi-usage  was  implemented  for  entering  test  billet  data  from 
each  of  the  NPS  curriculum  offices.  It  appears  feasible  to 
implement  the  total  Navy  force  on  a  single  CMS  account  SINK 
machine.  The  Navy  OMF  fixed  file  required  40  cylinders  of 
storage.  A  program  account  of  approximately  50  cylinders  and 
a  users  account  of  4  cylinders  for  each  end  user  would  be 
required.  The  model  currently  consists  of  10  cylinders  of 
data  and  programs  and  one  4  cylinder  user  account  on  the  Naval 
Postgraduate  School  (NPS)  mainframe  computer. 

B .  PROGRAM  DEVELOPMENT 

Programs  developed  in  FOCUS  consists  of  a  main  menu  for 
uploading  data,  maintaining  the  data  base,  and  reporting. 
Since  this  was  a  prototype,  backup  procedures  and  backup 
programs  were  not  included.  However,  security  passwords  were 
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implemented  due  to  the  sensitivity  of  the  data.  To  view  the 
system,  refer  to  the  Users  Guide  at  Appendix  C.  The  accounts 
currently  set  up  for  this  model  are  temporary  accounts. 
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IV .  CONCLUSIONS 


The  initial  requirements  of  providing  a  tool  to  track  NPS 
Navy  students  was  realized  in  the  OMFX  model.  The  adding  of 
billet  information  on  students  graduating  from  NPS  provides 
the  information  required  for  tracking  but  raises  the  issues  of 
entering  and  maintaining  the  data  as  well  as  keeping  duplicate 
information  at  their  respective  command  levels.  At  best, 
trends  can  be  reviewed  from  data  gathered  at  DMDC  providing 
that  the  billet  sequence  codes  can  be  included  in  their  OMF. 
The  timeliness  of  the  data  represents  a  signficiant  problem 
worthy  of  further  study.  The  OMF  is  a  fiscal  year  file. 
Requirements  to  have  the  data  quarterly  (to  include  BSC 
information)  impact  the  submitting  agency  and  the  supporting 
agency . 

When  it  is  determined  how  the  BSC  data  is  to  be  included 
(provided  through  the  OMF  file  or  through  inputing  by 
department  curricular  offices)  and  how  the  data  is  to  be 
maintained  current,  the  basic  concept  presented  to  track  these 
personnel  is  feasible.  The  OMFX  model  represents  a  successful 
implementation  of  a  data  base  with  multi-user  access. 
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APPENDIX  A:  DATA  DICTIONARY 


A.  TABLE  1: 

FILE  NAME/TYPE 
OMF  DATA 
OMFX  FOCUS 
OMFUIC  FOCUS 
OMFBSC  FOCUS 


DATA  FILES 

DESCRIPTION 

Transaction  input  personnel  attributes . 
On-Line  personnel  data  base. 

Proposed  on-line  UIC  data  base. 

Proposed  on-line  BSC  data  base. 
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B.  TABLE  2:  OMF  DATA  FILE  OEFIHITIONS 


FIELD  NAME 

FORMAT 

DESCRIPTION 

RECNO 

IS 

Record  number  extracted  from 
master . 

PR  GRADE 

A1 

Permanent  Grade 

PROMO_STAT 

A4 

Officer's  selection/nonselection 
to  next  higher  grade. 

YEAR_GRP 

A2 

Year  of  precedence  for  officer 
promotion . 

YG_MYSTERY 

first 

A1 

Year-group  of  precedence  ( 1  = 

increment;  2  =  second) 

DESIG 

A4 

Code  to  categorize  officers  for 
accounting  and  statistical 
purposes . 

UNKNOWN 

A1 

Filler 

SEL  FY 

A2 

Program  Status  Fiscal  Year 

SEL  INCR 

A1 

Program  Status  FY  Increment 

SEL  PGM 

A1 

Program  Status  Program 

SEL  CURR 

A3 

Program  Status  Curriculum 

SEL  STAT 

A1 

Program  Status  Selectee 

GROUP 

A1 

Education  History  Group  Code 

PRESELECT 

A1 

Preselect  Indicator 

U  GRAD  VALID 

A1 

Undergraduate  Valid 

FY  SELECTED 

A2 

Fiscal  Year  Selected 

INCR  SELECT 

A1 

FY  Increment  Selected 

PGM  SELECT 

A1 

Program  Selected 

CURRIC  SEL 

A3 

Curriculum  Selected 

SELECT^STAT 

A1 

Selection  Status 

J  YR  SEL 

A1 

Junior  Year  Selected 

J  STATUS 

A1 

Junior  Year  Status 

J  COLLEG 

A2 

Junior  Service  College 

J  FYELIG 

A2 

Junior  FY  Eligible 

S  YR  SEL 

A1 

Senior  Year  Selected 

S  STATUS 

A1 

Senior  Status 

S  COLLEG 

A2 

Senior  Service  College 

S  FYELIG 

A2 

Senior  FY  Eligible 

PRI  DUTY 

A14 

Primary  Duty  (Billet  Title) 

BSC 

AS 

Billet  Sequence  Code  (Not 

Provided ) 

GRE  YEAR 

A1 

Graduate  Record  Exam  Year 

COLLEGE 1 

AlO 

Current  College  (Monterey) 

DURATINl 

A2 

Duration 

YRCOMPl 

A2 

Year  Completed 

SPONSRl 

A1 

Sponsor  Code 

LEVEL 1 

A1 

Level 

MAJOR 1 

A2 

Major 

SPECl 

A2 

Specialty 
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C0LLEGE2 

AlO 

Previous  College 

0URATIN2 

A2 

Duration 

YRC0MP2 

A2 

Year  Completed 

SP0NSR2 

A1 

Sponsor  Code 

LEVEL2 

A1 

Level 

MAJ0R2 

A2 

Major 

SPEC2 

A2 

Specialty 

SUBSPECl 

AS 

First  Subspecialty 

SUBSPEC2 

AS 

Second  Subspecialty 

SUBSPEC3 

AS 

Third  Subspecialty 

SSUHIST 

A8 

Subspecialty  Utilization  History 

NOB  CODEl 

A4 

Navy  Office  Billet  Code  (NOBC) 

NOB  STA  CODl 

A3 

NOBC  Station  Code 

NOB  CLASS 1 

A2 

NOBC  Class  (MOS) 

NOB  KEYl 

A1 

NOBC  Key 

NOB_CODE2 

A4 

(Group  2  thru  6  same  as  NOBC  group 
1) 

NOBC  STA  COD2 

A3 

NOB  CLASS2 

A2 

NOB  KEY2 

A1 

NOB  CODE3 

A4 

NOB  STA  COD3 

A3 

NOB  CLASS 3 

A2 

NOB  KEY3 

A1 

N0B'"C0DE4 

A4 

NOB  STA  COD4 

A3 

NOB  CLASS4 

A2 

NOB  KEY4 

A1 

N0B“C0DE5 

A4 

NOB  STA  CODS 

A3 

NOB  CLASS5 

A2 

NOB  KEYS 

A1 

NOB  CODES 

A4 

NOB  STA  COD6 

A3 

NOB  CLASS 6 

A2 

NOB  KEYS 

A1 

APC 

A3 

Not  Used 

DOD  LOSS  COO 

A3 

DOD  LossCode 

SEX 

A1 

Gender  (1  -  Male; 2  -  Female) 

NOBC  COUNTER 

A2 

NOBC  Counter 

PGU  UTIL 

A1 

Pay  Grade  Utilization  Code 

ACTUAL__UIC 

AS 

Actual  Unit  Identification  Code 

(UIC) 

PARENT  UIC 

AS 

Parent  UIC 

UIC  XFERD  TO 

AS 

UIC  Trans fered  To 

AQD_^COUNTER 

A2 

Additional  Qualification 

Designator 

(AQD)  Counter 

AQDDATEl 

A2 

AQD  Year 

AQDl 

A3 

AQD  Code 

AQDDATE2 

A2 

(Group  2  thru  12  same  as  AQD  group 

1) 
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AQD2 

A3 

AQDDATE3 

A2 

AQD3 

A3 

AQDDATE4 

A2 

AQD4 

A3 

AQDDATE5 

A2 

AQD5 

A3 

AQDDATE6 

A2 

AQ06 

A3 

AQDDATE7 

A2 

AQD7 

A3 

AQDDATE8 

A2 

AQD8 

A3 

AQDDATE9 

A2 

AQD9 

A3 

AQDDATEIO 

A2 

AQDIO 

A3 

AQDDATEll 

A2 

AQDll 

A3 

AQDDATE12 

A2 

AQD12 

A3 

SSM 

A9 

NAME 

A27 

YOS 

A1 

Social  Security  Number 
Last  First  Middle 
Years  of  Service 
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C.  TABLE  3:  OMF  MASTER  FILE 


FILE=OMF , SUFFIX=FIX 


FIELD=RECNO 

t 

,I5,$ 

FIELD=PR  GRADE 

,ALIAS=PG 

,A1,$ 

FIELD=PROMO  STAT 

i 

.A4,S 

FIELD=YEAR  GRP 

,ALIAS=YG 

.A2,$ 

FIELD=YG  MYSTERY 

t 

,A1,$ 

FIELO^DESIG 

$ 

,A4,$ 

FIELD=UNKNOWN 

i 

,A1,$ 

FIELD=SEL  FY 

t 

,A2,$ 

FIELD=SEL  INCR 

t 

,A1,$ 

FIELD=SEL  PGM 

i 

,A1,$ 

FIELD=SEL  CURR 

t 

,A3,$ 

FIELD=SEL  STAT 

t 

,A1,$ 

FIELD=GROUP 

t 

,A1,$ 

FIELD=PRESELECT 

t 

,A1,$ 

FIELD=U  GRAD  VALID, 

,A1,$ 

FIELD=FY  SELECTED, 

,A2,$ 

FIELD=INCR  SELECT, 

,A1,$ 

FIELD=PGM  SELECT 

i 

,A1,$ 

FIELD=CURRIC  SEL 

/ 

.A3,$ 

FIELD=SELECT  STAT, 

,A1,$ 

FIELD=J  YR  SEL 

,A1,$ 

FIELD=J  STATUS 

,A1,$ 

FIELD=J'"C0LLEG 

,A2,$ 

FIELD=J  FYELIG 

,A2,$ 

FIELD=S  YR  SEL 

,A1,$ 

FIELD=S  STATUS 

,A1,$ 

FIELD=S  COLLEG 

,A2,$ 

FIELD=S  FYELIG 

,A2,$ 

FIELD=PRI  DUTY 

,A14,$ 

FIELD=BSC 

,A5,$ 

FIELD=GRE  YEAR 

,A1,$ 

FIELD=COLLEGEl 

,A10,$ 

FIELD=DURATIN1 

,A2,$ 

FIELD=YRCOMPl 

,A2,$ 

FIELD=SPONSRl 

,A1,$ 

FIELD=LEVEL1 

,A1,$ 

FIELD=MAJORl 

,A2,$ 

FIELD=SPEC1 

,A2,$ 

FIELD=COLLEGE2 

,A10,$ 

FIELD=DURATIN2 

,A2,$ 

FIELD=YRCOMP2 

,A2,$ 

FIELD=SPONSR2 

,A1,$ 

FIELD=LEVEL2 

,A1,$ 

FIELD=MAJOR2 

,A2,$ 

FIELD=SPEC2 

,A2,$ 

FIELD=SUBSPEC1 

,ALIAS=SSC1 

,A5,$ 

FIELD=SUBSPEC2 

,ALIAS=SSC2 

,A5,$ 

FIELD=SUBSPEC3 

,ALIAS=SSC3 

.A5,$ 
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FIELD=SSUHIST 

,A8,$ 

FIELD=NOB  CODEl 

,A4,$ 

FIELD=NOB  STA  CODl, 

,A3,$ 

FIELD=NOB  CLASS 1  , 

,A2,$ 

FIELD=NOB  KEYl 

,A1,$ 

FIELD=NOB  CODE2  , 

,A4,$ 

FIELD*NOB  STA  COD2 , 

,A3,$ 

FIELD=NOB  CLASS2  , 

,A2,$ 

FIELD=NOB  KEy2 

,A1,$ 

FIELD=NOB  CODE3  , 

,A4,$ 

FIELD=NOB  STA  COD3 , 

.A3,$ 

FIELD=NOB  CLASS3  , 

,A2,$ 

FIELD=NOB  KEy3 

.Al,$ 

FIELD=NOB  CODE4  , 

,A4,$ 

FIELD=NOB  STA  COD4 , 

,A3,$ 

FIELD=NOB  CLASS4  , 

,A2,$ 

FIELD=NOB  KEy4 

,A1,$ 

FIELD=NOB  CODES  , 

,A4,$ 

FIELD=NOB  STA  CODS, 

,A3,$ 

FIELD=NOB  CLASSS  , 

,A2,$ 

FIELD=NOB  KEYS 

,A1,$ 

FIELD=NOB  CODES  , 

,A4,$ 

FIELD=NOB  STA  COD6, 

,A3,$ 

FIELD=NOB  CLASSS  , 

,A2,$ 

FIELD=NOB  KEYS  , 

,A1,$ 

FIELD=APC  , 

,A3,$ 

FIELD=DOD  LOSS  COD, 

,A3,$ 

FIELD=SEX” 

,A1,$ 

FIELD=NOBC  COUNTER, 

,A2,$ 

FIELD=PGU  UTIL 

,A1,$ 

FIELD=ACTUAL  UIC  , ALIAS 

=AUIC  ,AS,$ 

FIELD=PARENT  UIC  , ALIAS 

=PUIC  ,A5,$ 

FIELD=UIC  XFERD  TO, ALIAS=XUIC  ,AS,$ 

FIELD=AQD  COUNTER, 

,A2,$ 

FIELD=AQDD^ATE1 

,A2,$ 

FIELD=AQD1 

,A3,$ 

FIELD=AQDDATE2 

,A2,$ 

FIELD=AQD2 

,A3,$ 

FIELD=AQDDATE3 

,A2,$ 

FIELD=AQD3 

,A3,$ 

FIELD=AQDDATE4 

,A2,$ 

FIELD=AQD4 

,A3,$ 

FIELD=AQDDATES 

,A2,$ 

FIELD=AQDS 

,A3,$ 

FIELD=AQDDATES 

,A2,$ 

FIELD=AQDS 

,A3,$ 

FIELD=AQDDATE7 

,A2,$ 

FIELD=AQD7 

,A3,$ 

FIELD=AQDDATE8 

,A2,$ 

FIELD=AQD8 

,A3,$ 

FIELD=AQDDATE9 

,A2,$ 
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END 
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TABLE  4:  OMFZ  MASTER  FILE 


FILE=OMFX , SUFFIX=FOC , $ 

SEGNAME=SERVICE, SEGTYPE=S1 

FIELD=SVC  ,  ,FORMAT=A3  . FIELDTyPE=I , 

DESCRIPTION®' Individual  service  or  organization', 

TITLE® ' SVC ' , 

ACCEPT='NV  '  OR  'AR  '  OR  'AF  '  OR  'CG  '  OR  'MC  '  OR  'CIV'  , 
HELP®  '***  Service  must  be  NV,  AR,  AF,  CG.  MC,  OR  CIV  ***'  ,5 

FIELD®ALUM_FLG  ,  ,FORMAT=Al  . 

DESCRIPTION® 'NPS  Alumni', 

TITLE® 'Alumni'  ,$ 

FIELD®ALUM_DATE  ,  , FORMAT=I4YM, 

DESCRIPTION® ' Year  Month  Graduated  from  NPS', 

TITLE®' Alumni, Grad  Date'  ,$ 


SEGNAME=MEMBER , SEGTYPE®S 1 ,  PARENT=SERV1CE 


FIELD-SSN 

$ 

,FORMAT®A9  , FIELDTYPE-I 

/ 

FIELD-NAME  SHORT 

,ALIAS=NM  S 

,FORMAT®A8  , FIELDTYPE-I , 

DESCRIPTION® 'First  8  letters  of  name  field  ' 

/ 

FIELD-NAME 

,ALIAS®NM 

, FORMAT-A27 , FIELDTYPE-I , 

DESCRIPTION® 'Last  First  Middle', 

TITLE® 'Name 
FIELD-FILE  DATE 

, ALIAS-FY 

,FORMAT=I4YY  , 

' 

DESCRIPTION® ' Year  of  Officer  Master  File  Extracted  From' 

FIELD-GENDER 

, ALIAS-SEX 

, FORMAT-Al , 

DESCRIPTION® ' F 
TI'TLE®' Gender' 

-  Female,  M 

-  Male', 

FIELD-DOD  LOSS  COD , ALIAS-ETS 

, FORMAT-A3 

FIELD-YOS 

» 

, FORMAT=Al 

FIELD-PR  GRADE 

,ALIAS»PG 

, FORMAT-Al 

FIELD=PROMO  STAT 

,FORMAT®A4 

FIELD-YEAR  GRP 

, ALIAS=YG 

, F0RMAT-A2 

FIELD-DESIG 

f 

, F0RMAT-A4 

FIELD-SEL  FY 

f 

, FORMAT-A2 

FIELD-SEL  INCR 

t 

, FORMAT-Al 

FIELD-SEL  PGM 

0 

, FORMAT-Al 

FIELD-SEL  CURR 

0 

, F0RMAT-A3 

FIELD-SEL  STAT 

0 

, FORMAT-Al 

SEGN AME®BILLET , SEGTYPE=S 1 ,  PARENT®MEMBER 
FIELD®UIC_ACTUAL  , ALIAS®AUIC , F0RMAT=A5 
FIELD=BSC  ,  , FORMAT=A5 

FIELD®UIC_PARENT  , ALIAS®PUIC , FORMAT=A5 
FIELD=UICl_X_TO , ALIAS=XUIC1 , FORMAT®A5 
FIELD®BSCl_X_'rO ,  ALIAS®XBSC1 ,  FORMAT®  A5 
FIELD®PAY1_BACK  ,  , F0RMAT=A1 , 

DESCRIPTION- 'PAY  BACK  TOUR  OR  BILLET', 
TITLE- ' FIRST , TOUR ' , 

ACCEPT®  0  TO  4, 

HELP®  '***  PAY  BACK  MUST  BE  1,  2,  3,  OR 

FIELD®SPONSl_NM  ,  ,FORMAT=A27 

FIELD=SP0NS1_ADDR1,  ,FORMAT=A20 

FIELD®SPONSl_ADDR2,  ,FORMAT=A20 

FIELD=SPONSl_ADDR3,  ,FORMAT=A20 

FIELD=SPONSl_CITY,  ,FORMAT=A20 

FIELD-SPONS 1_STATE ,  , FORMAT-A2 

FIELD®SPONS 1_Z IP ,  , F0RMAT=A1 0 

FIELD=RPT1_DATE,  ,F0RMAT=I4YM 

FIELD=UIC2_X_TO , ALIAS-XU1C2 , FORMAT®A5 
FIELD-BSC2  X  TO , ALIAS-XBSC2 , FORMAT®A5 


,  FIELDTYPE®! 

,  FIELDTYPE®! 

, FIELDTYPE®! 
, FIELDTYPE-I 


4  *»* » 


,  FIELDTYPE-I 
,  FIELDTYPE-I 
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FIELD=PAy2_BACK  ,  , F0RMAT=A1 , 

DESCRIPTION- 'PAY  BACK  TOUR  OR  BILLET', 

TITLE- ' SECOND , TOUR ' , 

ACCEPT-  0  TO  4, 

HELP-  '***  PAY  BACK  MUST  BE  1.  2,  3,  OR  4  ***' 
FIELD-SPONS2_NM  ,  ,FORMAT-A27 

FIELD=SPONS2_ADDRl ,  ,FORMAT=A20 

FIELD=SPONS2_ADDR2 ,  ,FORMAT=A20 

FIELD=SPONS2_ADDR3,  ,FORMAT-A20 

FIELD-SPONS2_CITY,  ,FORMAT=A20 

FIELD=SPONS2_STATE ,  , FORMAT-A2 

FIELD-SPONS2_ZIP,  .FORMAT-AIO 

FIELD-RPT2  DATE,  ,FORMAT=I4YM 

,  ALIAS-SSC 1 ,  FORMAT-Af;  , 

, ALIAS-SSC2 , FORMAT=Ab  , 
,ALIAS=SSC3,FORMAT=A5  , 

,  ,  FORMAT-Al 


FIELD-SUBSPECl 
FIELD-SUBSPEC2 
FIELD-SUBSPEC3 
FIELD-PGU  UTIL 


FIELDTYPE-I 

FIELDTYPE-I 

FIELDTYPE-I 


DEFINE  UICBSC/AIO  =  UIC_ACTUAL  | |  BSC 


SEGNAME-SCHOOLS , SEGTYPE-Sl , 
FIELD-COLLEGE! 
FIELD-YRCOMPl 
FIELD-LEVEL! 

FIELD-MAJOR! 

FIELD-SPEC! 

FIELD-COLLEGE2 

FIELD-YRCOMP2 

FIELD-LEVEL2 

FIELD-MAJOR2 

FIELD-SPEC2 

END 

DBA-OMFDBA 

USER-OMFRDR  ,ACCESS=R 
USER-OMFNV  ,ACCESS-RW 


PARENT-MEMBER 
,FORMAT-A!0 
, FORMAT-A2 
, FORMAT-A! 

, FORMAT-A2 
, FORMAT-A2 
, FORMAT-AIO 
, FORMAT-A2 
, FORMAT-A! 

, FORMAT-A2 
, FORMAT-A2 
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TABLE  5:  UZCZ  MASTER  FILE 


FILENAME-UICX , SUFFIX=FOC , $ 


SEGNAME=UICFILE , SEGTYPE-S 1 ,  $ 

FIELD=UICSVC  ,  .F0RMAT=A3 

SEGNAME-UICINFO , SEGTYPE»S 1 , PARENT-UICFILE , 


FIELD»UIC5  , 

, FORMAT-A5 , 

FIELD=UNKN1 

, FORMAT»A2 

F1ELD*ADDR  LN  NO  , 

,FORMAT»Il 

FIELD^ADDR  Ll" 

, FORMAT»A30 

FIELD»ADDR  L2 

, FORMAT»A30 

FIELD=ADDR  L3 

, FORMAT=A30 

FIELD=ADDR  L4 

,FORMAT=A30 

FIELD=ADDR  L5 

, FORMAT=A30 

FIELD=STATE 

. FORMAT=A2 

FIELD=ZIPCODE 

, FORMAT=A5 

FIELD=ZIPEXTN 

, FORMAT=A5 

FIELD=SERVICE 

, FORMAT=Al 

FIELD=COMP 

, FORMAT=Al 

FIELD=DISTR 

, FORMAT=A2 

FIELD=CONUS 

<  FORMAT=Al 

FIELD=UNKN2 

, FORMAT=Al 

FIELD=CNTRYCDE 

, FORMAT=A2 

FIELD=LOCTN 

<  FORMAT=Al 

FIELD=CONTN 

, FORMAT=A2 

FIELD=STATE  H 

, FORMAT=A2 

FIELD=CITY  H 

,  FORMAT=A4 

F1ELD=ACTVTY 

, F0RMAT=A1 

FIELD=SEA  SHORE  , 

, FORMAT=Al 

F1ELD=MISSI0N 

, FORMAT=A2 

END 


$ 

FIELDTYPE=I 
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F.  TABUS  6:  BSCHV  MASTER  FZIiB 

FILENAME*BSCNV, SUFFIX=FOC , $ 

SEGNAME-BSCFILE , SEGTYPE^S 1 , $ 

FIELD-UICBSC  ,  .FORMAT^AIO  ,$ 

SEGNAME-BILLET, SEGTYPE-Sl ,  $ 

FIELD»SUBSPEC  ,  , FORMAT-A5 

FIELD=DESCRIP  .  ,FORMAT=A25 

FIELD=UIC  ,FORMAT=A5,  FIELDTYPE=I 

END 
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6.  TABLE  7:  REPORTS 
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REPORT  HO:OHFOATOR  NAVAL  POSTGRADUATE  SCHOOL  PAGE  NO:  1 

PREPARED:  OA/23/93  NAVY  OMFX 

CURRENT  CURRENT  TRANSFER  TRANSFER  YEAR 

SSN  Name  SPEC1  UIC  SPEC1  BSC  SPEC1  TO  UIC  SPEC1  TO  BSC  SPEC1  COLLEGE  COMP  MAJOR  SPEC 


J 


o 

o 


o 

o 


«o  «o  CO  «o  K 


UJ  UJ  UJ  UJ 
«  OC  OC  CK 


iiiii 


rsi 


CO 

o 


o 

o 


fM  O  CO  O 

o  o  o 


fvi  o  r-  CO  o 
0  0^-00 


o  o  o  o  o 

§0000 
^  ^  in 
^00^ 


CM  O  ^  CO  O 

o  O  o  o 


o  CO  oi  Ki 
CO  fO  ^  ^ 

^  'O  o  o 
CM  a  o  o  ^ 
<0^000 


OJ  O  ^  CO  o 
o  o  o 


^  <M  M  in 

Hi  1^1  111  lai  m 


z  ac  X  z  X 

^  CM  m  tn 


^  CM  Ki  ^  m 
t/»  Ut  1A  V»  tA 


00000 
00000 
00000 
00000 
00000 
(  00000 

•  00000 

*  00000 
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a\ 


O  iJ 

1  CM  ro  VO  o\ 

0 

1 

a\ 

z  •< 

1  ov  i-t 

CM 

1 

yo 

tH 

1 

1 

fM 

u  o 

1 

1 

in 

O  H 

1 

1 

rtj  — » 

1 

1 

PU  H 

1 

1 

u  u 

1 

1 

Z  04 

1 

1 

<  Z 

10000 

0 

1 

<N 

X  O  1 

1 

1 

z  z  z 

1 

1 

<N 

o  w  o 

1 

1 

H  Ei  Z 

1 

1 

Z  E< 

1 

1 

W  <<  O 

1 

1 

>  z 

1 

1 

Z  (0  H 

1 

1 

H  04  Z 

1  CN  ro  VO  ov 

0 

1 

Z  H  W 

1  erv  <H 

OJ 

1 

0 

1 

1 

0 

z  z 

fri  Q  S  Z 

» 

1 

1 

\ 

1 

1 

\n 

0  0 

O  M 

1 

i 

Z  Z 

SOX  u 

1 

1 

z  z  z  ^ 

own  Q 

1 

1 

u  z 

V}  Z  04  o 

1 

1 

>  w 

CO  O4  u 

1  Q  0  Z  0 

1 

Z  CO  0  > 

u  0  s 

1 

1 

H  X  -—Z  0 

H  D  n 

) 

1 

z  z  z  z 

<  w  0 

1 

1 

X  z  w  ^z 

D  '  W 

1  cn 

W  M  > 

q  z  X  Vi 

1  VO 

—  «  0  CO 

i<  U  H 

1 

t)  z  s  z 

Z  0  q 

1 

Vi  zip 

0  H  Z 

1 

X  Vi  H 

t4  Z  H 

1 

CO  z  u 

0  Z  (J 

1 

P  W  OT  0  0 

0  0  u 

t 

z  q  X  Z  Q 

z  z 

1 

X  w 

1  CO 

n  u  n  K  H 

q  !>  m 

1  U 

5  ^ 

1  H 

Z  Z  piz  u 

>  z  ra 

1  CO 

< 

1  X 

Z  0  X 

1  » 

z  z 

D  n 

1  Z 

1  — ' 

Q 

1 

p  p 

u 

1  CO 

z  z 

b4 

1  U 

z  z  z 

H 

1  U 

u  z 

z 

1  Z 

E<  >  W 

1  M 

i 

p  p  p  > 

Z  W  0 

1  H 

1 

Z  Z  0 

0  o>  u 

1  U 

'-'X  z  z 

(N  ^  E4 

1  CO 

1 

'  u  z 

< 

1 

1 

Z  CO  >  H 

Q  CM  U 

1  CO 

1 

H  Z  P  P  E4 

z^  ^ 

1  X 

1 

••  Z  Z  Z  P 

S 

1  U 

n 

1 

OT  X  Z  Z  '^Z 

0  0 

1  H 

1 

U  H  H  »' 

1  CO 

1 

Q  tl  CO 

s 

1  X 

u 

1 

P  E<  P  Z  Z 

0  ••  D 

1  CO 

(0 

1 

u  n  ZIP 

z  Q  q 

1 

CO 

1 

Z  CO  '-'H  Eh 

u  5 

1  CO 

1 

U  CO  CO  u 

M  Z  0 

1  Z 

>A 

1 

M  P  H  CO  P  P 

Z  Z  M 

1  0 

< 

1 

z  z  q  z  z  q 

p  z  Z 

1  Z 

1 

< 

CO 

z  u  z 

1  3 

P 

1 

z  n  II  II  II  II 

u  z  5 

1  u 

1 

p 

D 

z  z  u 

1  s 

{ 

CO  CO  C3  Z  Z  Q 
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H.  TABLE  8:  PROGRAM  FILES 


PROGRAM  NAME 
STARTSU  EXEC 
STARTFOC  EXEC 
PROFILE  FOCEXEC 

OMFADIOP  FOCEXEC 
OMFADllP  FOCEXEC 
OMFDAOOO  FOCEXEC 
OMFDAIOP  FOCEXEC 
OMFDAllP  FOCEXEC 
OMFDA12P  FOCEXEC 
OMFDA15P  FOCEXEC 
OMFDAIOR  FOCEXEC 
OMFDA20R  FOCEXEC 
USEOMF  FOCEXEC 


DESCRIPTION 

Disconnects  the  Account  for  SINK  setup. 
Links  user  to  FOCUS  environment. 
Indentifies  data  base  file  and  executes 
main  menu. 

Creates  OMFX  FOCUS  from  OMF  FIX. 

Matches  with  NPS  Student  Data  Base. 

OMF  System  Main  Menu. 

Add  module. 

Modify  module. 

Delete  module. 

Add/Modify  UIC  and  BSC  transfer. 

Listing  of  officers  from  OMFX. 

Summary  of  subspecialties  from  OMFX. 

Sets  password  and  identifies  FOCUS  file. 
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APPENDIX  B:  PROGRAMS 


A.  STARTSU  EXEC 

CP  LINK  FOCUS  191  193 

ACC  193  D 

FILEDEF  SYSIN  TERM 

CP  SET  RUN  ON  CP  DISCONN 

HLIMAIN  &SECRETWORD 
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B.  STARTPOC  EXEC 
& TRACE  OFF 

CP  LINK  FOCUS  191  193 
ACC  193  P 

CP  LINKTO  FOCUS  195 
GLOBAL  TXTLIB  FUSELIB 
EX  FOCUS 
& TRACE  ON 
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C.  PROFILE  FOCEZEC 
EX  USEOMF 
EX  OMFDAOOO 


D.  OMFADIOP  POCBXBC 


*  PROGRAM:  OMFADIOP  FOCEXEC 

*  Date:  15  Jan  1993  J.  Harr 

*  Description:  This  is  the  initial  upload  program  from  an  Officer 

*  Master  fixed  file  provided  by  DMDC,  Bill  King. 


-*  CMS  FXLEDEF  OMFX  DISK  OMFX  FOCUS  D  (RECFM  F  LRECL  890 
CMS  FILEDEF  OMF  DISK  OMF  DATA  D  (RECFM  F  LRECL  316 
CMS  FILEDEF  OMFDUPS  DISK  OMFDUPS  DATA  A  (RECFM  F  LRECL  316 
MODIFY  FILE  OMFX 
CASE  TOP 

LOG  DUPL  ON  OMFDUPS  MSG  OFF 
LOG  INVALID  MSG  OFF 
COMPUTE  VALTEST/Il  =  ; 

COMPUTE  ALUM_FLAG/A1  =  ; 

COMPUTE  ALUM_DATE/I4YM  =  ; 

COMPUTE  FILE_DATE/I4YY  =  ; 

COMPUTE  UICl_X_TO/A5  =  ; 

COMPUTE  BSCl_X_TO/A5  =  ; 

COMPUTE  PAY1_BACK/A1  =; 

COMPUTE  SP0NS1_NAME/A27  =; 

COMPUTE  SPONS1_ADDR1/A20  =  ; 

COMPUTE  SPONS1_ADDR2/A20  =  ; 

COMPUTE  SPONS1_ADDR3/A20  =  ; 

COMPUTE  SPONS1_CITY/A20  ==  ; 

COMPUTE  SPONSl_ST/A2  =  ; 

COMPUTE  SPONS1_ZIP/A10  =  ; 

COMPUTE  RPT1_DATE/I4YM  =  ; 

COMPUTE  UIC2  X_TO/A5  =  ; 

COMPUTE  BSC2“X_T0/A5  =  ; 

COMPUTE  PAY2_BACK/A1  »; 

COMPUTE  SPONS2_NAME/A27  =»; 

COMPUTE  SPONS2  ADDR1/A20  =  ; 

COMPUTE  SPONS2“ADDR2/A20  =  ; 

COMPUTE  SPONS2_ADDR3/A20  =  ; 

COMPUTE  SPONS2_CITY/A20  =  ; 

COMPUTE  SPONS2_ST/A2  =  ; 

COMPUTE  SPONS2_ZIP/A10  =  ; 

COMPUTE  RPT2_DATE/I4YM  =  ; 

COMPUTE  SVC/A3  =  ; 

COMPUTE  NAME_X/A4  =  ; 

COMPUTE  NAME_SHORT/A8  =  ; 

FIXFORM  X5  PR_GRADE/A1  PROMO_STAT/A4  YEAR  GRP/A2 

FIXFORM  XI  DESIG/A4  XI  SEL_FY/A2  SEL_INCR7a1  SEL_PGM/A1 

FIXFORM  SEL_CURR/A3  SEL_STAT/A1  X37  BSC/A5 

FIXFORM  XI  COLLEGE 1/AlO  X2  YRCOMP1/A2 

FIXFORM  XI  LEVELl/Al  MAJOR1/A2  SPEC1/A2 

FIXFORM  COLLEGE2/A10  X2  YRCOMP2/A2 

FIXFORM  XI  LEVEL2/A1  MAJOR2/A2  SPEC2/A2 

FIXFORM  SUBSPEC1/A5  SUBSPEC2/A5  SUBSPEC3/A5 

FIXFORM  X71  DOD_LOSS_COD/A3  GENDER/Al  X2  PGU_UTIL/A1 

FIXFORM  UIC_ACTUAL/A5  UIC  PARENT/A5 

FIXFORM  X67  SSN/A9  NAME/aI?  YOS/Al 

COMPUTE  FILE_DATE  =  1991; 

COMPUTE  ALUM_FLAG/A1  =  'Y'; 

COMPUTE  ALUM_DATE/I4YM  =  0; 

COMPUTE  UICl_X_TO/A5  =  ' 

COMPUTE  BSCl_X_TO/A5  =  ' 

COMPUTE  PAY1_BACK/A1  =  'O'; 

COMPUTE  SPONSl  NAME/A27  =  '  '; 
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COMPUTE  SPONS1_ADDR1/A20  =  ' 

COMPUTE  SPONS1_ADDR2/A20  =  '  ' ; 

COMPUTE  SPONS1_ADDR3/A20  =  ' 

COMPUTE  SPONS1_CITY/A20  =■  '  '  ; 

COMPUTE  SPONSl_ST/A2  =  '  ' ; 

COMPUTE  SPONS1_ZIP/A10  =  '  ' ; 

COMPUTE  RPT1_DATE/I4YM  =  9201; 

COMPUTE  U1C2_X_T0/A5  =  * 

COMPUTE  BSC2_X_TO/A5  =  ' 

COMPUTE  PAY2_BACK/A1  »  ' 0 ' ; 

COMPUTE  SPONS2_NAME/A27  =  ' 

COMPUTE  SPONS2_ADDR1/A20  =  ' 

COMPUTE  SPONS2_ADDR2/A20  =  '  ' : 

COMPUTE  SPONS2_ADDR3/A20  =  ' 

COMPUTE  SPONS2_CITY/A20  =  '  ' ; 

COMPUTE  SPONS2_ST/A2  =  '  ' ; 

COMPUTE  SPONS2_ZIP/A10  =  ' 

COMPUTE  RPT2_DATB/I4YM  =  9201; 

COMPUTE  SVC  =  • NV  • ; 

COMPUTE  NAME_X  =  EDIT(NAME, ' 9999$$$$$$$$$$$$$$$$$$$$$$$ ' ) ; 
COMPUTE  NAME_SHORT  =  EDIT(NAME, ' 99999999$$$$$$$$$$$$$$$$$$$ ') ; 
VALIDATE 

VALTEST  =  IF  COLLEGE 1  EQ  'MONTEREY'  OR  COLLEGE2  EQ  'MONTEREY' 
THEN  1  ELSE  0; 

ON  INVALID  GO'TO  TOP 
MATCH  SVC 

ON  NOMATCH  INCLUDE 
ON  MATCH  CONTINUE 
MATCH  SSN 

ON  NOMATCH  INCLUDE 
ON  MATCH  CONTINUE 
MATCH  UIC_ACTUAL 
ON  NOMATCH  INCLUDE 
ON  MATCH  CONTINUE 
MATCH  COLLEGE 1 

ON  NOMATCH  INCLUDE 
ON  MATCH  REJECT 
ENDCASE 
DATA  ON  OMF 
END 
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E.  OMFADllP  FOCBZEC 


*  PROGRAM:  OMFADllP  FOCEXEC 

*  Date:  15  Mar  1993  J.  Harr 

*  Description:  This  upload  program  updates  the  OMFX  file  with  the 

*  navy  student  match  extract. 


-*  CMS  FILEDEF  OMFX  DISK  OMFX  FOCUS  D  (RECFM  F  LRECL  890 

CMS  FILEDEF  OMFIT  DISK  NOMF  FOCTEMP  T  (RECFM  F  LRECL  316 

-*  CMS  FILEDEF  OMFDUPS  DISK  OMFDUPS  DATA  A  (RECFM  F  LRECL  316 

MODIFY  FILE  OMFX 

CASE  TOP 

LOG  DUPL  MSG  OFF 

LOG  INVALID  MSG  OFF 

COMPUTE  VALTEST/Il  =  ; 

COMPUTE  ALUM_FLAG/A1  =  ; 

COMPUTE  ALUM_DATE/I4YM  =  ; 

COMPUTE  FILE_DATE/I4YY  =  ; 

COMPUTE  UICl_X_TO/A5  =  ; 

COMPUTE  BSCl_X_TO/A5  =  ; 

COMPUTE  PAY1_BACK/A1  =; 

COMPUTE  SP0NS1_NAME/A27  =; 

COMPUTE  SPONS1_ADDR1/A20  =  ; 

COMPUTE  SPONS1_ADDR2/A20  =  ; 

COMPUTE  SPONS1_ADDR3/A20  =  ; 

COMPUTE  SPONS1_CITY/A20  =  ; 

COMPUTE  SPONSl_ST/A2  =  ; 

COMPUTE  SPONS1_ZIP/A10  =  ; 

COMPUTE  RPTl  DATE/I4YM  =  ; 

COMPUTE  UIC22x_TO/A5  =  ; 

COMPUTE  BSC2_X_T0/A5  =  ; 

COMPUTE  PAY2_BACK/A1  =; 

COMPUTE  SPONS2_NAME/A27  =; 

COMPUTE  SPONS2_ADDR1/A20  =  ; 

COMPUTE  SPONS2_ADDR2/A20  =  ; 

COMPUTE  SPONS2_ADDR3/A20  =  ; 

COMPUTE  SPONS2_CITY/A20  =  ; 

COMPUTE  SPONS2_ST/A2  =  ; 

COMPUTE  SPONS2_ZIP/A10  =  ; 

COMPUTE  RPT2_DATE/I4YM  =  ; 

COMPUTE  SVC/ A3  =  ; 

COMPUTE  NAME_X/A4  =  ; 

COMPUTE  NAME_SHORT/A8  =  ; 

FIXFORM  X5  PR_GRADE/A1  PROMO_STAT/A4  YEAR  GRP/A2 

FIXFORM  XI  DESIG/A4  Xl  SEL_FY/A2  SEL_INCR7a1  SEL_PGM/Ai 

FIXFORM  SEL_CURR/A3  SEL_STAT/Al  X37  BSC/A5 

FIXFORM  XI  COLLEGEI/AIO  X2  YRCOMP1/A2 

FIXFORM  XI  LEVELl/Al  MAJOR1/A2  SPEC1/A2 

FIXFORM  COLLEGE2/A10  X2  YRCOHP2/A2 

FIXFORM  XI  LEVEL2/A1  MAJOR2/A2  SPEC2/A2 

FIXFORM  SUBSPEC1/A5  SUBSPEC2/A5  SUBSPBC3/A5 

FIXFORM  X71  DOD_LOSS_COD/A3  GENDER/Al  X2  PGU_UTIL/A1 

FIXFORM  UIC_ACTUAL/A5  UIC  PARENT/A5 

FIXFORM  X67  SSN/A9  NAME/AI7  YOS/Al 

COMPUTE  FILE_DATE  =  1991; 

COMPUTE  ALUM_FLAG/A1  =  'Y'; 

COMPUTE  ALUM_DATE/I4YM  =  0; 

COMPUTE  UICl_X_TO/A5  =  ' 

COMPUTE  BSCl_X_TO/A5  »  '  ' ; 

COMPUTE  PAYl  BACK/Al  =  'O'; 

COMPUTE  SPONSl  NAME/A27  =  ' 
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COMPUTE  SPONS1_ADDR1/A20  =  ' 

COMPUTE  SPONS1_ADDR2/A20  *  ' 

COMPUTE  SPONS1_ADDR3/A20  =  ' 

COMPUTE  SPONSl_CITy/A20  =  ' 

COMPUTE  SPONSl_ST/A2  »  '  ' ; 

COMPUTE  SPONSIZIP/AIO  ■  '  ’ : 

COMPUTE  RPTl_DATE/I4YM  “  9201; 

COMPUTE  UIC2_X_TO/A5  =  ' 

COMPUTE  BSC2_X_TO/A5  =  '  ' ; 

COMPUTE  PAy2_BACK/Al  =  'O'; 

COMPUTE  SPO»IS2_NAME/A27  =  '  '  ; 

COMPUTE  SPOHS2_ADDR1/A20  =  ' 

COMPUTE  SPONS2_ADDR2/A20  «  ' 

COMPUTE  SPONS2_ADDR3/A20  =  ' 

COMPUTE  SPOHS2_CITy/A20  =  ' 

COMPUTE  SPONS2_ST/A2  =  ' 

COMPUTE  SPONS2_ZIP/A10  =  ' 

COMPUTE  RPT2_DATE/I4yM  =  9201; 

COMPUTE  SVC  =  'NV  '; 

COMPUTE  NAME_X  =  EDIT(NAME. ' 9999$$$S$$$$$5S$S$$$$$$$S$$ ' ) ; 
COMPUTE  NAME_SHORT  =  EDIT(NAME, *  99999999$$$$$$$$$$$$$$$$$$$ ' ) 
MATCH  SVC 

ON  NOMATCH  INCLUDE 
ON  MATCH  CONTINUE 
MATCH  SSN 

ON  NOMATCH  INCLUDE 
ON  MATCH  CONTINUE 
MATCH  UIC_ACTUAL 
ON  NOMATCH  INCLUDE 
ON  MATCH  CONTINUE 
MATCH  COLLEGE 1 

ON  NOMATCH  INCLUDE 
ON  MATCH  REJECT 
ENDCASE 
DATA  ON  OMFIT 
END 


33 


F.  OMFOAOOO  FOCBXEC 


_•••••••*•*••*  remove  before  installation  **************** 

SET  PF04  =  END 
_* 

-*  Program:  OMFOAOOO 

-*  This  is  the  main  menu  for  the  Officer  Master  File  system. 
—  * 

-*  calls: 


_* 


SET  PF03  =  RETURN 

SET  PF15  =  RETURN 

-RUN 

Note:  The  Service  variable  (itSVC)  is  set  to  'NV  '  fcr  Navy. 

_«****  *****  *****  *****  *****  *****  ***** 

-SET  &SSVC  =  'NV 

_*****  *****  *****  *****  *****  *****  ***** 

-SET  &PFKEY  =  '  '  ; 

-SET  iOPTION  =  ' 

-SET  S.:AAA  =  ' 

-SET  & : BBB  =  ' 

-SET  &CURSOR*' :AAA' ; 

-START 

-CRTFORM 


OMFDAIOP  ADD  an  Individual  Record 

OMFDAllP  Modify  an  OMF  Record 

OMFDA12P  Delete  an  OMF  Record 

OMFDA15P  Add  Transfer  Data  to  OMF 

OMFDA80R  DISPLAY/PRINT  AM  INDIVIDUAL( S )  RECORD 

OMFDA90R  PRINT  A  SUMMARY  REPORT 


000000000000 

-FFFFFFFFFFF" 

0000000000000000 
“  FFF  ppfFFFFF  ** 


ft 

00 

00 

It 

oo 

00 

ft 

00 

00 

If 

00 

00 

0000000000000000 

000000000000 

-»</02  " 


MMMM  MMMMM 

MMMM  MMMMM 

MM  MM  MM  MM 

MM  MM  MM  MM 
MM  Mn  MM  MM 
MM  MMMM  MM 
MM  MM  MM 
MM  MM 

Naval  Postgraduate  School” 


-  </02  " 
n 

-IF  &PFKEY  =  'PF03'  OR 

-BEGIN 

-CRTFORM 

-"  OMFDAOOO-1.0 

<D.SDATE/08" 


OFFICER  MASTER  FILE  SYSTEM" 
NAVY" 

Press  ENTER  to  continue" 
PF15'  THEN  GOTO  EXITING; 


Naval  Postgraduate  Schol" 


OFFICER  MASTER  FILE  SYSTEM" 


<0X 

<0X 

FF" 

FFFFFFFFF" 

FF" 

FF" 

FF" 

FF" 


<0X 


OMF  MAIN  EDIT  MENU" 
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-  ’</01 


1.  Add  an  Individual  Record  " 

2 .  Modify  Individual  Record  " 

3.  Delete  Individual  Record  " 

4 .  Add  Transfer  Data  " 

T.  Report  with  TABLETALK 


X.  EXIT" 

m 

-<fi:BBB.CD.tiSVC/02>" 

n  m 


Service  — >  <0X 


OPTION  }<S:AAA.C. tOPTION/01 I { 

-SET  iGOBACK= ' BEGIN ' ; 

-SET  fiMSG  =  ' 

-SET  64MSGFLAG  =  '  ' ; 

-SET  SWHERE*DECODE  iOPTION(l  'OMFDAIOP' 

3  '0MFDA12P' 

T  ’TABLETALK' 
X  'EXITING' 

R  'EXIT' 


<.HD.6MSG/44- 


2  'OMFDAllP' 
4  '0MFDA15P' 


ELSE  ' ERRORMSG ' ) ; 

-IF  6PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 
-IF  (.WHERE  EQ  'EXIT'  THEN  GOTO  EXIT; 

-IF  (WHERE  EQ  'EXITING'  THEN  GOTO  EXITING; 

-IF  (WHERE  EQ  'TABLETALK'  THEN  GOTO  TABLERPT; 
-*  OMFOSE  SETS  UP  THE  OMF  DATABASE 
-*  EX  USEOMF 
-*  -RUN 
EX  (WHERE 


-RUN 

SET  PF03  =  RETURN 
SET  PF15  =  RETURN 
-RUN 

-GOTO  (GOBACK 
-*  OPTION  T 
-TABLERPT 
TABLETALK 
-RUN 

SET  PF03  =  RETURN 
SET  PF15  =  RETURN 
-RUN 

-GOTO  (GOBACK 
-*  OPTION  X 
-EXITING 

SET  PF03  =  END,PF15  =  END 

FIN 

-EXIT 


-ERRORMSG 

-SET  (MSG  =  'OPTION  }  '  [  (OPTION 
-GOTO  (GOBACK 


{  is  incorrect.  Please  reenter.’; 


-ERRORMSG2 

-SET  (MSG  =  'SVC  }  '  I  ((SVC 
-SET  (CURSOR  =  ' : BBB ' ; 

-GOTO  (GOBACK 


is  incorrect .  Please  reenter . ' ; 
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G.  OHFDAIOP  FOCEZBC 


-*  Program:  OMFDAIOP 

-*  This  progr2un  is  used  to  input  student  personnel  data  not  on  initial 
-*  data  base. 

-*  Called  From:  OHFDAOOO  FOCEXEC  main  dirver  program  menu. 

Files:  OMFX  FOCUS 


SET  PF03  =  RETURN 
SET  PF15  =  RETURN 
-RUN 

MODIFY  FILE  OMFX 
COMPUTE 

DUM/Al  =  ; 

PFKEY/A4  =  ; 

GOTO  BEGIN 

CASE  BEGIN 
COMPUTE 

TSVC/A3  =  'NV  • ; 
TUIC/A5  =  '62271'; 
TCOLLEGE/AIO  =  'NPS 
CRTFORM  LINE  01  TYPE  1 
-  OMFDAIOP- 1.1 
iDATE" 


"  Create  an  Officer  Master  record  by  entering  the  following  data:" 

m  M 

"  SSN  <T.SSN/09>" 

-  SVC:  <D.TSVC/03>" 

"  CURRENT  UIC:  <D.TUIC/05>" 

"  COLLEGE :  <D . TCOLLEGE / 1 0  > " 

"</09  " 

"  PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 

IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GO'TO  EXIT; 

COMPUTE 

SVC  =  TSVC; 

UIC_ACTUAL  =  TUIC; 

COLLEGE 1  »  TCOLLEGE: 

MATCH  SVC 

ON  MATCH  TYPE  "SVC  MATCH  " 

ON  NOMATCH  TYPE  "SVC  <SVC  NOMATCH  " 

ON  MATCH  CONTINUE 
MATCH  SSN 

ON  MATCH  TYPE  "SSN  <SSN  EXISTS  " 

ON  MATCH  REJECT 

ON  NOMATCH  TYPE  "SSN  NOMATCH  " 

ON  NOMATCH  GOTO  ADDSSN 
ENDCASE 

CASE  ADDSSN 
COMPUTE  SSN  =  SSN; 

CRTFORM  LINE  01 

-  OMFDAIOP- 1.2 

&DATE" 


SSN:  <D.SSN/09>" 


NAVY  POSTGRADUATE  SCHOOL  <0X 

Officer  Master  File  System" 
Add  Screen  2" 


NAVAL  POSTGRADUATE  SCHOOL  <0X 

OFFICER  MASTER  FILE  SYSTEM" 

ADD  SCREEN  1" 
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1 


-  NAME  (LAST  FIRST  MIDDLE);  <T.NAME/27>" 

"  GENDER  (F/M):  <T.SEX/01>  ESTIMATED  TIME  IN  SERVICE  (A3);  <0X 

<T.ETS/03>“ 

H  H 

"  YOS  (123);  <T.YOS/Ol>  PAY  GRADE;  <T.PG/01>" 

"  PROMOTION  STATUS;  <T.PROMO_STAT/04>" 

"  YEAR  GROUP;  <T.YG/02>  DESIGNATOR;  <T.DESIG/04>" 

"  SELECTION  YEAR;  <T . SEL_FY/02>  INCREMENT;  <0X 
<T.SEL_INCR/01>  PROGRAM;  <T.SEL_PGM/01>“ 

"  CURRICULUM;  <T. SEL_CURR/01>  STATUS;  <T.SEL_STAT/01>" 

"</05  " 

"  PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 

IF  PFKEY  EQ  'PF03'  OR  'PF15*  THEN  GOTO  EXIT; 

MATCH  SSN 

ON  NOMATCH 

COMPUTE  NAME_SHORT  =  EDIT(NAME, *  99999999$$$$$$$$$$$$$$$$$$ ') ; 
ON  NOMATCH  INCLUDE 
ON  NOMATCH  GOTO  ADDUIC 
ENDCASE 


CASE  ADDUIC 
COMPUTE  SSN  =  SSN; 

UIC_ACTUAL  =  AUIC; 

CRTFORM  LINE  01 

"  OMFDAlOP-1.3  Officer  Master  File  System  <0X 

&DATE’ 

"  Add  Screen  3" 


"<.HD.NAME/27>" 

"Please  input  UIC  data,.." 

"CURRENT  UIC:  <D. UIC_ACTUAL/05>  CURRENT  BSC;  <T.BSC/05>" 

"Is  this  a  pay  back  tour  or  billet:  }<T.PAY1_BACK/01>{ " 

"(1  =  Yea;  2  =•  School/Training;  3  =  Unknown;  4“=*  No)" 

"UIC  }<T.UIC1_X_TO/05><  BSC  }<T.BSC1_X_TO/05>{  ETS  (YM)  }<0X 
<T.RPTl_DATE/04>< " 

"Sponsor  Name  }<T.SPONSl_NM/27>{" 

"Sponsor  Address  )<T,SPONS1_ADDR1/20>{" 

"  }<T.SPONS1_ADDR2/20>{" 

"  City  }<T.SPONS1_CITY/20><  State  }<0X 

<T.SPONS1_STATE/02>{  Zip  }<T,SPONS1_ZIP/10>{" 

"FOLLOWING  tour  of  duty:" 

"UIC  }<T.UIC2_X_TO/05>{  BSC  }<T.BSC2_X_TO/05>{  ETS  (YM)  }<0X 
<T . RPT2_DATE / 0  4  > { " 

"Is  this  a  pay  back  tour  or  billet:  )<T .PAY2_BACK/01>{ " 

"Sponsor  Name  }<T.SPONS2_NM/27>{" 

"Sponsor  Address  }<T.SPONS2_ADDR1/20><" 

"  }<T.SPONS2_ADDR2/20>{" 

"  City  }<T,SPONS2_CITY/20>{  State  }<0X 

<T.SPONS2_STATE/02>{  Zip  }<T . SPONS2_ZIP/10>{ " 

"  PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 

IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 


MATCH  UIC_ACTUAL 

ON  NOMATCH  TYPE  "AUIC  NOMATCH  ” 
ON  MATCH  TYPE  "AUIC  MATCH  " 

ON  MATCH  UPDATE  BSC 
ON  MATCH  GOTO  ADDEDU 
ENDCASE 


CASE  ADDEDU 
COMPUTE  SSN  =  SSN; 

COLLEGE 1  =  COLLEGE 1; 
CRTFORM  LINE  01 
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OMFDAlOP-1.4 

(■DATE’ 


Officer  Master  File  System 


<0X 


Add  Screen  4’ 


"<.HD.NAME/27>" 

M  N 

"Please  input  current  graduate  data:’ 

"COLLEGE  NAME  }<D.COLLEGE1/10>{  YEAR  COMPLETED  }<0X 
<T.YRCOMP1/02><' 

"Level  }<T.LEVEL1/01>{  Major  }<T. MAJOR! /02>{  Specialty  }<0X 

<T.SPECl/02>{" 

n  m 

"Please  input  previous  college  data:" 

"College  Name  }<T.COLLEGE2/10><  Year  Completed  }<0X 
<T.YRCOMP2/02>{" 

"Level  }<T.LEVEL2/01>{  Major  }<T.MAJOR2/02>{  Specialty  }<0X 

<T.SPEC2/02>{" 

"</05  " 

"  PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 

IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 

MATCH  SSN 

ON  MATCH  TYPE  "COL  SSN  MATCH  " 

ON  NOMATCH  TYPE  "COL  SSN  NOMATCH  " 

ON  MATCH  CONTINUE 
MATCH  COLLEGE 1 

ON  NOMATCH  TYPE  "**  ERROR  IN  ADDEDU  CASE  **  " 

ON  MATCH  TYPE  "**  <NAME  HAS  BEEN  ADDED  TO  THE  OMF  **" 

ON  MATCH  UPDATE  YRCOMPl 
ENDCASE 

CASE  ERRMSG 
CRTFORM  LINE  1 

"  *•*  Record  already  in  data  base.  Use  Update  Menu  to  MODIFY.  ***" 

ENDCASE 

DATA 

END 
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H.  OMFDAllP  FOCBZEC 


-*  Program:  OMFDAllP 

-*  This  program  is  used  to  modify  student  personnel  data. 
-*  Files:  OMFX  FOCUS 


SET  PF03  =  RETURN 
SET  PF15  =  RETURN 
-RUN 

MODIFY  FILE  OMFX 
COMPUTE 

DUM/Al  =  ; 
PFKEY/A4  =  ; 
GOTO  BEGIN 


CASE  BEGIN 
COMPUTE 

TSVC/A3  =  'NV 
TUIC/A5  =  '62271'; 

TCOLLEGE/AIO  =  'NPS 
CRTFORM  LINE  01  TYPE  1 

"  OMFDAllP- 1.1  NAVAL  POSTGRADUATE  SCHOOL  <0X 

iDATE" 

"  OFFICER  MASTER  FILE  SYSTEM" 

"  Modify  Screen  1" 

It  H 

"  Modify  an  Officer  Master  record  by  entering  the  following  data:" 


tl  M 

H 

SSN 

<T.SSN/09>" 

H 

SVC: 

<D.TSVC/03>- 

M 

CURRENT  UlC: 

<D.TUlC/05>" 

t* 

COLLEGE : 

<D. TCOLLEGE /10>" 

"</09 

N 

PRESS  PF3/PF15  TO 

RETURN  TO  PREVIOUS  MENU" 

IF  PFKEY  EQ 

'PF03'  OR  'PF15'  THEN  GOTO 

EXIT; 

COMPUTE 

SVC  =  TSVC; 

UIC_ACTUAL  =  TUIC; 

COLLEGE 1  =  TCOLLEGE; 

MATCH  SVC 

ON  MATCH  TYPE  "SVC  MATCH  " 

ON  NOMATCH  TYPE  "SVC  <SVC  NOMATCH  " 
ON  MATCH  CONTINUE 
MATCH  SSN 

ON  NOMATCH  GOTO  ERRMSG 
ON  MATCH  TYPE  "SSN  MATCH  " 

ON  MATCH  GOTO  MODSSN 
ENDCASE 


CASE  MODSSN 
COMPUTE  SSN  =  SSN; 

CRTFORM  LINE  01 

"  OMFDAllP- 1.2  NAVY  POSTGRADUATE  SCHOOL  <0X 

&DATE" 


"  Officer  Master  File  System” 

"  Modify  Screen  2" 

"  SSN:  <D.SSN/09>" 

"  NAME  (LAST  FIRST  MIDDLE):  <T.NAME/27>" 

-  GENDER  (F/M):  <T.SEX/01>  ESTIMATED  TIME  IN  SERVICE  (A3):  <0X 

<T.ETS/03>" 
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"  YOS  (123):  <T.YOS/Ol>  PAY  GRADE:  <T.PG/01>” 

"  PROMOTION  STATUS:  <T. PROMO_STAT/04>'‘ 

"  YEAR  GROUP:  <T.YG/02>  DESIGNATOR:  <T.DESIG/04>" 

"  SELECTION  YEAR:  <T. SEL_FY/02>  INCREMENT:  <0X 
<T.SEL_INCR/01>  PROGRAM:  <T . SEL_PGM/01>* 

"  CURRICULUM:  <T . SEL_CURR/01>  STATUS:  <T. SEL_STAT/01>" 

"</05  " 

"  PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 

IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 

MATCH  SSN 

ON  MATCH 

COMPUTE  NAME_SHORT  =  EDIT(NAME, ' 99999999$$$$$S5?$$$$$$$$$$ ' ) ; 

ON  MATCH  UPDATE  NAME_SHORT  NAME  FY  SEX  ETS  YOS  PG  PROMO_STAT 
ON  MATCH  UPDATE  YG  DESIG  SEL_FY  SEL_INCR  SEL_PGM  SEL_CURR  SEL_STAT 
ON  MATCH  GOTO  MODUIC 
ENDCASE 


CASE  MODUIC 
COMPUTE  SSN  =  SSN; 

UIC_ACTUAL  =  AUIC; 

CRTFORM  LINE  01 

"  OMFDAllP-1.3  Officer  Master  File  System  <0X 

SDATE" 


"  Modify  Screen  3" 

"<.HD.NAME/27>* 

"Please  input  UIC  data. , . " 

"CURRENT  UIC;  <D . UIC_ACTUAL/05>  CURRENT  BSC:  <T.BSC/05>" 

"Is  this  a  pay  back  tour  or  billet:  }<T.PAY1_BACK/01>( " 

"(1  =  Yea;  2  =  School/Training;  3  =  Unknown;  4  =  No)" 

"UIC  )<T.UIC1_X_TO/05>{  BSC  }<T.BSC1_X_TO/05>{  ETS  (YM)  }<0X 
<T.RPT1  DATB/04>{" 

"Sponsor  Name  }<T.SPONSl_NM/27>{ " 

"Sponsor  Address  }<T.SPONS1_ADDR1/20>{" 

"  )<T.SPONS1_ADDR2/20><" 

"  City  }<T.SPONS1_CITY/20><  State  }<0X 

<T.SPONS1_STATE/02>{  Zip  }<T. SPONS1_ZIP/10>{ " 

"FOLLOWING  tour  of  duty:" 

"UIC  ><T.UIC2  X_TO/05>{  BSC  }<T.BSC2_X_TO/05>{  ETS  (YM)  }<0X 
<T . RPT2_DATE/04>{ " 

"Is  this  a  pay  back  tour  or  billet:  )<T.PAY2_BACK/01>{ " 

"Sponsor  Name  ><T.SPONS2_NM/27>{" 

"Sponsor  Address  }<T.SPONS2_ADDR1/20>{" 

"  )<T.SPONS2_ADDR2/20>{" 

"  City  }<T.SPONS2_CITY/20>{  State  }<0X 

<T.SPONS2_STATE/02><  Zip  }<T.SPONS2_ZIP/10>{ " 

"  PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 

IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 


MATCH  UIC_ACTUAL 

ON  NOMATCH  TYPE  "AUIC  NOMATCH  " 

ON  MATCH  TYPE  "AUIC  MATCH  " 

ON  MATCH  UPDATE  BSC  PUIC  XUICl  XBSCl  PAY1_BACK  SPONSl_NM 
ON  MATCH  UPDATE  SP0NS1_ADDR1  SPONSl_ADDR2  SPONSl_ADDR3 
ON  MATCH  UPDATE  SPONSl_CITY  SPONSl_STATE  SPONSl_ZIP  RPT1_DATE 
ON  MATCH  UPDATE  XUIC2  XBSC2  PAY2_BACK  SPONS2_NM 
ON  MATCH  UPDATE  SPONS2_ADDRl  SPONS2_ADDR2  SPONS2_ADDR3 
ON  MATCH  UPDATE  SPONS2_CITY  SPONS2_STATE  SPONS2_ZIP  RPT2_DATE 
ON  MATCH  GOTO  MODEDU 
ENDCASE 

CASE  MODEDU 
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COMPUTE  SSN  =  SSN; 

COUiEGEl  =  COLLEGE  1; 

CRTFORM  LINE  01 

"  OMFDAllP-1.4  Officer  Master  File  System 

SiDATE" 

"  Modify  Screen  4" 

M  N 

"<.HD.NAME/27>" 

N  m 

"Please  input  current  graduate  data:" 

"COLLEGE  NAME  }<D.COLLEGE1/10>{  YEAR  COMPLETED  }<0X 

<T.YRCOMP1/02>{" 

"Level  }<T.LEVEL1/01>{  Major  }<T.MAJOR1/02>{  Specialty 

<T.SPECl/02>{" 

H  W 

"Please  input  previous  college  data:" 

"College  Name  }<T.COLLEGE2/10>{  Year  Completed  }<0X 

<T.YRCOMP2/02>{* 

"Level  }<T.LEVEL2/01>{  Major  }<T.MAJOR2/02>{  Specialty 

<T.SPEC2/02>{" 

"</05  " 

"  PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 

IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 

MATCH  SSN 

ON  MATCH  CONTINUE 
MATCH  COLLEGE 1 

ON  NOMATCH  TYPE  "**  ERROR  IN  MODEDU  CASE  **  " 

ON  MATCH  TYPE  "**  Record  has  been  modified:  <NAME 
ON  MATCH  UPDATE  YRCOMPl  LEVEL 1  MAJORl  SPECl 
ON  MATCH  UPDATE  COLLEGE2  YRCOMP2  LEVEL2  MAJOR2  SPEC2 
ENDCASE 

CASE  ERRMSG 
CRTFORM  LINE  1 

"  ***  Record  NOT  in  data  base.  Use  Add  Menu  to  ADD.  ***" 

ENDCASE 

DATA 

END 


<0X 


}<0X 


}<0X 
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0NPDA12P  FOCBZEC 


-*  Program:  0MFDA12P 

-*  This  program  is  used  to  delete  OMFX  records. 
-*  Files:  OMFX  FOCUS 


SET  PF03  “  RETURN 
SET  PF15  =  RETURN 
-RUN 

MODIFY  FILE  OMFX 
COMPUTE 

DUM/Al  =  ; 

PFKEY/A4  *  ; 

GOTO  BEGIN 

CASE  BEGIN 
COMPUTE 

TSVC/A3  =  'NV  ' ; 

CRTFORM  LINE  01  TYPE  1 

"  OMFDA12P-1.1  NAVAL  POSTGRADUATE  SCHOOL  <0X 

&DATE" 

"  OFFICER  MASTER  FILE  SYSTEM" 

"  Delete  Screen" 

n  m 

"  Delete  an  Officer  Master  record  by  entering  the  following  data:" 

n  m 

"  SSN  <T.SSN/09>" 

"</09  " 

"  PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 

IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 

COMPUTE 

SVC  =  TSVC; 

MATCH  SVC 

ON  MATCH  CONTINUE 
MATCH  SSN 

ON  NOMATCH  GOTO  ERRMSG 

ON  MATCH  TYPE  "**  Record  <SSN  DELETED.  Enter  next  SSN  or  exit.  **" 
ON  MATCH  DELETE 
ENDCASE 

CASE  ERRMSG 
COMPUTE  SSN  =  SSN; 

CRTFORM  LINE  1 

"  ***  RECORD  <D.SSN  NOT  IN  DATA  BASE.  ***" 

ENDCASE 

DATA 

END 
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J. 


0MF0A15P  rOCEXEC 


-*  Program:  0MFDA15P 

-*  This  program  is  used  for  students  to  input  their  UIC  and  BSC  that 
-•  they  are  transferring  to. 

-*  Files:  OMFX  FOCUS  —  indexes  by  SSN 


SET  PF03  =  RETURN 
SET  PF15  =  RETURN 

CMS  FILEOEF  OMFNOSSN  DISK  OMFNOSSN  DATA  A  (LRECL  100  RECFM  FB  DISP  MOD) 

MODIFY  FILE  OMFX. SSN 

LOG  NOMATCH  ON  OMFNOSSN  MSG  OFF 

COMPUTE 

DUM/Al  =  ; 

PFKEy/A4  =  ; 

GOTO  BEGIN 


CASE  BEGIN 
COMPUTE 

DOC_NUM/A8  =  "  ; 
AC_NUM/A2  =  "  ; 
CRTFORM  LINE  01  TYPE 
"  OMFDA15P-1.0 
SDATE* 


n 


SVC  fits VC 

Officer  Master  File  System" 
Edit  Screen" 


"</01  " 

•  Enter  SSN  }<SSN/09>{ 

"</13  " 

"  PRESS  ENTER  to  Continue  or  PF3  to 

IF  PFKEY  EQ  'PF03'  OR  'PFIS'  THEN  GOTO  EXIT; 

MATCH  SSN 

ON  NOMATCH  TYPE 

•**SSN  }  <SSN  {  IS  NOT  ON  FILE**" 

ON  NOMATCH  REJECT 
ON  MATCH  GOTO  EDINFO 
ENDCASE 


Quit" 


<0X 


CASE  EDINFO 
NEXT  UIC_ACTUAL 
ON  NEXT 

CRTFORM  LIME  04 
"  <.HD.NAME/27>" 

"  PLEASE  PROVIDE  THE  FOLLOWING  INFORMATION ..." 

n  n 

"NEXT  tour  of  duty  assignment:" 

"UIC  }<T.UIC1_X_TO/05>{  BSC  )<T.BSCl_XjrO/05>{  ETS  (YM)  }<0X 
<T .  RPT  1_D  ATE  /  0  4  >  {  " 

"Is  this  a  pay  back  tour  or  billet:  }<T.PAY1_BACK/01>< " 

"(1  =  Yes;  2  =  School/Training;  3  =  Unknown;  4  =  No)" 

"Sponsor  Name  }<T.SPONSl_NM/27>{" 

"Sponsor  Address  }<T.SPONS1_ADDR1/20><" 

"  }<T.SPONS1_ADDR2/20>{" 

"  City  }<T.SPONS1_CITY/20>{  State  )<0X 

<T.SPONS1_STATE/02>{  Zip  )<T.SPONS1_ZIP/10>{" 

"FOLLOWING  tour  of  duty:" 

"UIC  }<T.UIC2_X_TO/05>{  BSC  }<T.BSC2_X_TO/05>{  ETS  (YM)  }<0X 
<T . RPT2_D ATE / 0  4  > { " 

"Is  this  a  pay  back  tour  or  billet:  }<T.PAY2_BACK/01>{ " 

"Sponsor  Name  }<T.SPONS2_NM/27>{" 
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“Sponsor  Address  }<T.SPONS2_ADDRl/20>{ * 

"  }<T.SPONS2_ADDR2/20>{“ 

“  City  }<T.SPONS2  CITY/20>{  State  }<0X 

<T.SPONS2_STATE/02>{  Zip  }<T.SPONS2_2IP/10>{ “ 

H  It 

"***PRESS  TAB  to  Next  Field,  ENTER  to  Add  Data,  or  PF3  to 
IF  PFKEY  EQ  'PF03'  OR  'PP15'  THEN  GOTO  EXIT; 

ON  NEXT  TYPE 

"<40  UIC/BSC  INFORMATION  UPDATED" 

OH  NEXT  UPDATE  U1C1_X_T0  BSCl_X_TO  PAY1_BACK 

ON  NEXT  UPDATE  SP0NS1_ADDR1  SPONSl_ADDR2  SPONSl_ADDR3 

ON  NEXT  UPDATE  SPONSl_CITY  SPONSl_STATE  SPONSl_ZIP 

ON  NEXT  UPDATE  UIC2_X_TO  BSC2_X_TO  PAY2_BACK 

ON  NEXT  UPDATE  SPONS2_ADDRl  SPONS2_ADDR2  SPONS2_ADDR3 

ON  NEXT  UPDATE  SPONS2_CITY  SPONS2_STATE  SPONS2_ZIP 

ON  NONEXT  TYPE 

"<40  UIC  }<UIC_ACTUAL  {  DOES  NOT  MATCH* 

ON  NONEXT  GOTO  BEGIN 
ENDCASE 

DATA 

END 


Quit***" 

SPONSINM 

RPT1_DATE 

SPONS2_NM 

RPT2  DATE 
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K.  OMTOAIOR  FOCBZEC 


-•  PROGRAM:  OMFDAIOR  FOCEXEC 

-*  THIS  PROGRAM  PRODUCES  A  LISTING  OF  KEY  ELEMENTS  OF  OMFX . 

-*  J.  HARR  APR  1993 

OFFLINE  CLOSE 

CMS  FILEOEF  OFFLINE  CLEAR 

CMS  FILEDEF  OFFLINE  DISK  OMFDAIOR  LISTING  T  (LRECL  132  RECFM  F 
TABLE  FILE  OMFX 

"REPORT  NO: OMFDAIOR  NAVAL  POSTGRADUATE  SCHOOL 

<+14  PAGE  NO:  <+4  <TABPAGENO>  " 

"PREPARED:  &DATE  NAVY  OMFX  " 

PRINT  SSN  NAME 

AUIC  AS  ’ CURRENT, UIC' 

BSC  AS  ‘CURRENT, BSC' 

XUICl  AS  'TRANSFER, TO  UIC' 

XBSCl  AS  ‘'"PAHSFER,TO  BSC' 

COLLEGE 1  AL  'COLLEGE' 

YRCOMPl  AS  'YEAR, COMP' 

MAJOR 1  AS  'MAJOR' 

SPECl  AS  'SPEC' 

BY  SVC  NOPRINT 

END 

-RUN 

-CMS  XEDIT  OMFDAIOR  LISTING  T 
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L.  OMFOA20R  FOCEXBC 


-*  PROGRAM;  OMFDA20R  FOCEXEC 

-*  THIS  PROGRAM  COUNTS  ALL  HOLDERS  OF  SUBSPECIALTIES  GRANTED  BY 
-*  NPS  REGARDLESS  OF  WHERE  AN  OFFICER  OBTAINED  THEM.  THE  REPORT 
-*  IS  GROUPED  BY  SUBSPECIALTY. 

-»  AUTHOR;  HOWARD  MORTON 
-*  MODIFIED:  J.  HARR  APRIL  1993 
OFFLINE  CLOSE 
CMS  FILEDEF  OFFLINE  CLEAR 

CMS  FILEDEF  OFFLINE  DISK  OMFDA20R  LISTING  T  (LRECL  132  RECFM  F 
TABLE  FILE  OMFX 

PRINT  SUBSPECl  COLLEGEl  COLLEGE2 


IF 

SUBSPECl  IS 

'$$42$' 

OR 

'$$43$ 

'  OR  '$$45$ 

'  OR  '$$76$ 

OR 

'$$91$' 

OR 

'$$89$' 

OR 

'$$48$' 

OR  '$$47$' 

OR  '$$49$' 

OR 

'$$41$' 

OR 

'$$44$' 

OR 

'$$61$' 

OR  '$$63$' 

OR  '$$67$' 

OR 

'$$56$' 

OR 

'$$54$' 

OR 

'$$55$' 

OR  '$$77$' 

OR  '$$46$' 

OR 

' $$81$' 

OR 

'$$71$' 

OR 

• $$72$' 

OR  '$$21$' 

OR  ’$$22$' 

OR 

'$$23$' 

OR 

'$$24$' 

OR 

'$$28$' 

OR  '1304$' 

OR  '$$35$' 

OR 

' 1306$' 

OR 

'1302$' 

OR 

'$$17$' 

OR  '$$32$' 

OR  '$$31$' 

OR 

'$$33$' 

OR 

'$$95$' 

ON  TABLE  HOLD  AS  HOWARD 

END 

DEFINE  FILE  HOWARD 

TRAINING/A?  =IF  COLLEGEl  OMITS  'MONTEREY'  AND  COLLEGE2  OMITS  'MONTEREY' 
THEN  ' NON-NPS '  ELSE  '  NPS ' ; 

SSC/A2  =  EDIT (SUBSPECl,  '$$99$'); 

SFX/Al  =  EDIT( SUBSPECl,  '$$$$9'); 

CURRICULUM/A38  =  DECODE  SSC 
{'42'  'OPERATIONS  ANALYSIS' 

'43'  'OPERATIONAL  LOGISTICS' 

'45'  'COMMAND,  CONTROL  AND  COMMUNICATIONS' 

'76'  'SPACE  SYSTEMSOPERATIONS ' 

'91'  'COMPUTER  SCIENCE' 

'95'  'COMPUTER  SYSTEMS  MANAGEMENT' 

'89'  'INFORMATION  TECHNOLOGY  MANAGEMENT' 

'48'  '  14ETEOROLOGY ' 

'47'  'AIR-OCEAN  SCIENCES' 

'49'  ' OCENAOGRAPHY ' 

'44'  'ASW  SYSTEMS' 

'61'  'WEAPONS  SYSTEMS  ENGINEERING' 

'63'  'WEAPONS  SYSTEMS  SCIENCES  (PHYSICS)' 

'67'  'NUCLEAR  PHYSICS  (WEAPONS  AND  EFFECTS)' 

'56'  'UNDERWATER  ACOUSTICS' 

'54'  'NAVAL/MECHANICAL  ENGINEERING' 

'55'  'ELECTRONIC  SYSTEMS  ENGINEERING' 

'77'  'SPACE  SYSTEMS  ENGINEERING' 

'46'  'EW  SYSTEMS  ENGINEERING' 

'81'  'COMMUNICATIONS  ENGINEERING' 

'71'  'AERONAUTICAL  ENGINEERING' 

'72'  'AERONAUTICAL  ENGINEERING-AVIONICS' 

'21'  'NSA  -  MIDEAST,  AFRICA,  SOUTH  ASIA' 

'22'  'NSA  -  FAB  EAST,  SE  ASIA,  PACIFIC' 

'23'  'NSA  -  WESTERN  HEMISPHERE' 

'24'  'NSA  -  EUROPE,  USSR' 

'28'  'NSA  -  STRATEGIC  PLANNING' 

'04'  'TRANSPORTATION  LOGISTICS  MANAGEMENT' 

'35'  'TRANSPORTATION  MANAGEMENT' 

'06'  'ACQUISITIONS  &  CONTRACT  MANAGEMENT' 

'02'  'SYSTEMS  INVENTORY  MANAGEMENT' 

'17'  'INTELLIGENCE' 

'32'  'MATERIAL  LOGISTICS  SUPPORT  MANAGEMENT' 
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'31'  'FINANCIAL  MANAGEMENT' 

'33'  'MANPOWER,  PERS  &  TRAINING  ANALYSIS') 

END 

TABLE  FILE  HOWARD 

"REPORT  NO:OMFDA20R  NAVAL  POSTGRADUATE  SCHOOL 

<+14  PAGE  NO:  <+4  <TABPAGENO>  ” 

"PREPARED:  iDATE  US  NAVY  OFFICER  SUBSPECIALTY  INVENTORY" 

"  (CATEGORIZED  BY  SUBSPECIALTY,  SUFFIC  AND  NPS  ATTENDANCE)" 

COUNT  SUBSPECl  ACROSS  TRAINING  AND  ROW-TOTAL  AND  COLUMN-TOTAL 
BY  CURRICULUM  UNDER-LINE  NOSPLIT 
BY  SSC  SUBTOTAI 
BY  SFX  AS  'CODE' 

WHERE  SFX  IS  'S'  OR  'R'  OR  'G'  OR  'F'  OR  'P'  OR  'Q'  OR  'N'  OR  'M'  OR  'D' 
OR  'C' 

FOOTING 

"SUPSPEC  CODES:" 

"S  =  NO  MS  (EXPER,  NOT  PROVEN)  R  =  NO  MS  (EXPER,  PROVEN)" 

"G  =  LESS  THEN  MS  (NOT  PROVEN)  F  =  LESS  THEN  MS  (PROVEN)  " 

"P  =  MS  (NOT  PROVEN)  Q  =  MS  (PROVEN)" 

"M  =  POST-MS  (NOT  PROVEN)  N  =»  POST-MS  (PROVEN)" 

"D  =  DOCTOR  (NOT  PROVEN)  C  =  DOCTOR  (PROVEN)" 

END 

-RUN 

-CMS  XEDIT  OMFDA20R  LISTING  T 
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M.  USEOMF  FOCEXEC 


SET  PASS  =  XXXXXX 
UE  OMFX  FOCUS  A 
END 


APPENDIX  C:  USERS  GUIDE 


A.  INTRODUCTION 

1.  This  prototype  was  developed  in  response  to  questions 
posed  by  Dean  Elster  regarding  status  of  NPS  Navy  students 
after  graduation.  The  instructions  will  address  using  the 
system  to  update  personnel  information.  The  OMF  system 
resides  on  the  NPS  Computer  Center  mainframe. 

2 .  The  user  needs  basic  knowledge  of  a  CMS  user  account 
and  basic  knowledge  of  FOCUS  (for  TABLETALK) .  Passwords  for 
logging  on  to  the  account  can  be  provided  by  the  Dean  of 
Instruction . 

B.  LOGGING  ON 

1.  There  are  two  CMS  accounts  for  the  OMF  system:  the 
data  base  account  and  the  user  account.  The  data  base  account 
must  be  initiated  as  a  SINK  machine  in  order  to  provide 
simultaneous  updating  of  the  OMF  records. 

2.  Starting  the  SINK  Machine:  The  OMF  resides  on  account 
5010P.  Log  on  to  this  account  and  execute  the  command 
STARTSU.  This  will  make  the  account  active  as  a  SINK  machine 
and  will  log  you  off  automatically. 

3.  Logging  On  as  a  User:  For  this  prototype,  user 
account  5011P  is  provided.  To  initiate  a  session,  type 
STi\RTFOC.  This  will  put  the  user  in  the  FOCUS  environment  and 
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initiate  his  PROFILE  FOCEXEC  to  provide  the  main  menu 
sessions . 

C .  SYSTEM  MENUS 

1.  A  logo  will  appear  on  the  screen,  'OMF',  press  ENTER 
to  continue.  The  main  menu  provides  the  user  with  maintaining 
and  reporting  from  the  OMF  data  base. 


OMFDAOOO-1.0  Naval  Postgraduate  School 

OFFICER  MASTER  FILE  SYSTEM 

OMF  Main  Edit  Menu 

1. 

Add  an  Individual  Record 

2. 

Modify  Individual  Record 

3. 

Delete  Individual  record 

4. 

Add  Transfer  Data 

5. 

Display/Print  Individual  Records 

6. 

Display/Print  Summary  Report 

m 
^  • 

Report  with  TABLETALK 

X. 

EXIT 

Service  —  >  NV 

OPTION 

}  { 

Figure  1  OMF  Main  Edit  Menu 


2 .  To  add  or  modify  an  existing  record  the  menus  are  the 
same,  the  actions  are  different  (include  /  update). 
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Figure  3  Add/Modify  Personnel  Data 


OMFDAlOP-1.3  Officer  Master  File  System 

Add  Screen  3 

Please  input  UIC  data. . . 

CURRENT  UIC;  CURRENT  BSC: 

Is  this  a  pay  back  tour  or  billet: 

( l=yes ; 2=Sch/Trng; 3=Unk; 4=No) 

UIC:  BSC:  ETS: 

Sponsor  Name: 

Sponsor  Address: 

FOLLOWING  tour  of  duty; 

UIC:  BSC:  ETS: 

Is  this  a  pay  back  tour  or  billet; 

Sponsor  Name: 

Sponsor  Address: 


Figure  4  Add/Modify  UIC/BSC  Data 
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OMFDAlOP-1.4  Officer  Master  File  System 

Add  Screen  4 

Please  input  current  graduate  data: 
COLLEGE  NAME:  Year  Completed: 

Level:  Major:  Specialty: 

Please  input  previous  college  data: 
COLLEGE  NAME:  Year  Completed: 

Level:  Major:  Specialty: 

Figure  5  Add/Modify  Education 


3.  To  delete  a  record  from  the  OMF,  the  following  screen 
requires  entering  the  Navy  officer's  social  security  number. 


0MFDA12P-1.1  Naval  Postgraduate  School 
Officer  Master  File  System 
Delete  Screen 

Delete  an  Officer  Master  record  by  entering  the 
following  data: 

SSN 


Figure  6  OMF  Delete  Menu 


Messages  appear  on  the  bottom  of  the  screen  indicating  actions 
taken:  Record  <SSN>  deleted;  Record  <Name>  Added/Modified. 


D.  REPORTS 

1 .  Two  reports  are  provided  for  selection  on  the  main 
menu  as  Options  5  and  6 .  The  individual  and  summary  report 
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samples  are  provided  at  Appendix  B.  The  TABLETALK  report 
writer  is  window  driven  and  provides  the  user  an  easy  tool  for 
producing  other  reports  as  required.  Knowledge  of  the  FOCUS 
environment  is  helpful.  The  PF3  is  a  quit  key  and  the  TAB  is 
used  to  go  from  line  to  line.  Hitting  ENTER  allows  you  to  see 
the  next  menu. 

E .  LOGGING  OFF 

1.  To  end  the  session  on  the  users  account,  enter  X  to 
exit.  To  log  off  the  CMS  account,  enter  LOG. 

2.  Be  sure  to  bring  down  the  SINK  when  you  are  finished: 
Log  on  to  account  5010P  and  type  STOP  and  press  ENTER,  then 
LOG  off  the  account. 
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